home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #1 / Cd 1 (black) - 2001.iso / K-CS.dcr / 02894.ls < prev    next >
Encoding:
Text File  |  2000-11-15  |  1.0 KB  |  42 lines
  1. global BlinkObjekt
  2.  
  3. on new me
  4.   cursor(0)
  5.   set BlinkObject to 0
  6.   set the visible of sprite 80 to 1
  7.   set the visible of sprite 85 to 0
  8.   set the locH of sprite 99 to 780
  9.   set BlinkObjekt to new(script "Blink", 4, 80)
  10. end
  11.  
  12. on exitFrame
  13.   checkBlink(BlinkObjekt)
  14.   if (the timer mod 10) = 0 then
  15.     if random(4) = 1 then
  16.       set the visible of sprite 82 to 1
  17.       set the visible of sprite 83 to 0
  18.       set the visible of sprite 84 to 0
  19.       go(#loop)
  20.     else
  21.       if random(3) = 1 then
  22.         set the visible of sprite 82 to 0
  23.         set the visible of sprite 83 to 1
  24.         set the visible of sprite 84 to 0
  25.         go(#loop)
  26.       else
  27.         if random(2) = 1 then
  28.           set the visible of sprite 82 to 0
  29.           set the visible of sprite 83 to 0
  30.           set the visible of sprite 84 to 1
  31.           go(#loop)
  32.         else
  33.           set the visible of sprite 82 to 0
  34.           set the visible of sprite 83 to 0
  35.           set the visible of sprite 84 to 0
  36.         end if
  37.       end if
  38.     end if
  39.   end if
  40.   go(#loop)
  41. end
  42.